home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / comm / term / term_source.lha / Extras / Source / term-source.lha / UploadPanel.c < prev    next >
C/C++ Source or Header  |  1996-10-20  |  4KB  |  206 lines
  1. /*
  2. **    UploadPanel.c
  3. **
  4. **    ZModem auto-upload control panel support routines
  5. **
  6. **    Copyright © 1990-1996 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. **
  9. **    :ts=4
  10. */
  11.  
  12. #ifndef _GLOBAL_H
  13. #include "Global.h"
  14. #endif
  15.  
  16. LONG
  17. UploadPanel(LONG SendMode)
  18. {
  19.     LayoutHandle *Handle;
  20.     LONG Selection;
  21.     BOOL FromQueue;
  22.  
  23.     Selection = UPLOAD_IGNORE;
  24.  
  25.     if(SendMode)
  26.         FromQueue = (BOOL)(GenericListCount(GenericListTable[GLIST_UPLOAD]) > 0);
  27.     else
  28.         FromQueue = FALSE;
  29.  
  30.     if(Handle = LT_CreateHandleTags(Window->WScreen,
  31.         LAHN_LocaleHook,    &LocaleHook,
  32.     TAG_DONE))
  33.     {
  34.         struct Window *PanelWindow;
  35.  
  36.         LT_New(Handle,
  37.             LA_Type,    VERTICAL_KIND,
  38.         TAG_DONE);
  39.         {
  40.             LT_New(Handle,
  41.                 LA_Type,    VERTICAL_KIND,
  42.                 LA_LabelID,    MSG_UPLOADPANEL_SELECT_TRANSFER_TYPE_GAD,
  43.             TAG_DONE);
  44.             {
  45.                 LT_New(Handle,
  46.                     LA_Type,    BUTTON_KIND,
  47.                     LA_LabelID,    SendMode ? MSG_UPLOADPANEL_TEXT_UPLOAD_GAD : MSG_UPLOADPANEL_TEXT_DOWNLOAD_GAD,
  48.                     LA_ID,        UPLOAD_TEXT,
  49.                 TAG_DONE);
  50.  
  51.                 LT_New(Handle,
  52.                     LA_Type,        BUTTON_KIND,
  53.                     LA_LabelID,        SendMode ? MSG_UPLOADPANEL_BINARY_UPLOAD_GAD : MSG_UPLOADPANEL_BINARY_DOWNLOAD_GAD,
  54.                     LA_ID,            UPLOAD_BINARY,
  55.                     LABT_ReturnKey,    TRUE,
  56.                 TAG_DONE);
  57.  
  58.                 LT_EndGroup(Handle);
  59.             }
  60.  
  61.             if(SendMode)
  62.             {
  63.                 LT_New(Handle,
  64.                     LA_Type,VERTICAL_KIND,
  65.                 TAG_DONE);
  66.                 {
  67.                     LT_New(Handle,
  68.                         LA_Type,        CHECKBOX_KIND,
  69.                         LA_LabelID,        MSG_UPLOADPANEL_FROM_UPLOAD_QUEUE_TXT,
  70.                         LA_BOOL,        &FromQueue,
  71.                         LABT_ReturnKey,    TRUE,
  72.                         LA_ID,            UPLOAD_DUMMY,
  73.                     TAG_DONE);
  74.  
  75.                     LT_New(Handle,
  76.                         LA_Type,        XBAR_KIND,
  77.                         LAXB_FullSize,    TRUE,
  78.                     TAG_DONE);
  79.  
  80.                     LT_EndGroup(Handle);
  81.                 }
  82.             }
  83.  
  84.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  85.                 LAGR_SameSize,    TRUE,
  86.                 LAGR_Spread,    TRUE,
  87.             TAG_DONE);
  88.             {
  89.                 LT_New(Handle,
  90.                     LA_Type,        BUTTON_KIND,
  91.                     LA_LabelID,        MSG_UPLOADPANEL_IGNORE_GAD,
  92.                     LA_ID,            UPLOAD_IGNORE,
  93.                     LABT_ExtraFat,    TRUE,
  94.                 TAG_DONE);
  95.  
  96.                 LT_New(Handle,
  97.                     LA_Type,        BUTTON_KIND,
  98.                     LA_LabelID,        MSG_GLOBAL_ABORT_GAD,
  99.                     LA_ID,            UPLOAD_ABORT,
  100.                     LABT_EscKey,    TRUE,
  101.                     LABT_ExtraFat,    TRUE,
  102.                 TAG_DONE);
  103.  
  104.                 LT_EndGroup(Handle);
  105.             }
  106.  
  107.             LT_EndGroup(Handle);
  108.         }
  109.  
  110.         if(PanelWindow = LT_Build(Handle,
  111.             LAWN_TitleID,        MSG_UPLOADPANEL_TRANSFER_TYPE_TXT,
  112.             LAWN_HelpHook,        &GuideHook,
  113.             LAWN_Parent,        Window,
  114.             WA_DepthGadget,        TRUE,
  115.             WA_DragBar,            TRUE,
  116.             WA_RMBTrap,            TRUE,
  117.             WA_Activate,        TRUE,
  118.             WA_SimpleRefresh,    TRUE,
  119.         TAG_DONE))
  120.         {
  121.             struct IntuiMessage    *Message;
  122.             struct Gadget *MsgGadget;
  123.             ULONG MsgClass;
  124.             BOOL Done;
  125.  
  126.             GuideContext(CONTEXT_TRANSFER);
  127.  
  128.             PushWindow(PanelWindow);
  129.  
  130.             LT_ShowWindow(Handle,TRUE);
  131.  
  132.             Done = FALSE;
  133.  
  134.             do
  135.             {
  136.                 if(Wait(PORTMASK(PanelWindow->UserPort) | SIG_BREAK) & SIG_BREAK)
  137.                 {
  138.                     Selection = UPLOAD_ABORT;
  139.  
  140.                     break;
  141.                 }
  142.  
  143.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  144.                 {
  145.                     MsgClass    = Message->Class;
  146.                     MsgGadget    = (struct Gadget *)Message->IAddress;
  147.  
  148.                     LT_ReplyIMsg(Message);
  149.  
  150.                     if(MsgClass == IDCMP_GADGETUP)
  151.                     {
  152.                         switch(MsgGadget->GadgetID)
  153.                         {
  154.                             case UPLOAD_TEXT:
  155.  
  156.                                 if(FromQueue && !GenericListCount(GenericListTable[GLIST_UPLOAD]))
  157.                                     FromQueue = FALSE;
  158.  
  159.                                 if(FromQueue)
  160.                                     Selection = UPLOAD_TEXT_FROM_LIST;
  161.                                 else
  162.                                     Selection = UPLOAD_TEXT;
  163.  
  164.                                 Done = TRUE;
  165.  
  166.                                 break;
  167.  
  168.                             case UPLOAD_BINARY:
  169.  
  170.                                 if(FromQueue && !GenericListCount(GenericListTable[GLIST_UPLOAD]))
  171.                                     FromQueue = FALSE;
  172.  
  173.                                 if(FromQueue)
  174.                                     Selection = UPLOAD_BINARY_FROM_LIST;
  175.                                 else
  176.                                     Selection = UPLOAD_BINARY;
  177.  
  178.                                 Done = TRUE;
  179.  
  180.                                 break;
  181.  
  182.                             default:
  183.  
  184.                                 if(MsgGadget->GadgetID != UPLOAD_DUMMY)
  185.                                 {
  186.                                     Selection = MsgGadget->GadgetID;
  187.  
  188.                                     Done = TRUE;
  189.                                 }
  190.  
  191.                                 break;
  192.                         }
  193.                     }
  194.                 }
  195.             }
  196.             while(!Done);
  197.  
  198.             PopWindow();
  199.         }
  200.  
  201.         LT_DeleteHandle(Handle);
  202.     }
  203.  
  204.     return(Selection);
  205. }
  206.